home *** CD-ROM | disk | FTP | other *** search
/ Totally for Newton 10 / PDA10.toast / mac / Packages / Programming / 2.x / TapBar SDK 1.0 / Sample 8 / Sample 8.def next >
Encoding:
Text File  |  1996-06-03  |  601 b   |  35 lines  |  [TEXT/R*ch]
  1. /*====================================================================
  2.     Sample 8.def    ©1996 Yosuke "Basuke" Suzuki.
  3.     
  4.     How to access view of the bar.
  5.   ====================================================================*/
  6.  
  7. partData := {
  8.     //
  9.     // Actual button is defined in afterscript of "Sample 8.t"
  10.     //
  11. };
  12.  
  13.  
  14. InstallScript := func(partFrame,removeFrame)
  15. begin
  16.     
  17.     //
  18.     //    register button
  19.     //
  20.     
  21.     call kRegTapBarButtonFunc with (kAppSymbol, partFrame.partData.button);
  22. end;
  23.  
  24.  
  25. RemoveScript := func(removeFrame)
  26. begin
  27.     
  28.     //
  29.     //    unregister button
  30.     //
  31.     
  32.     call kUnRegTapBarButtonFunc with (kAppSymbol);
  33. end;
  34.  
  35.